Viết chương trình nhập từ bàn phím hai số nguyên a và b. Thực hiện tính và in ra màn hình tổng và hiệu hai số đó
Viết chương trình thực hiện việc nhập từ bàn phím hai số nguyên dương A và B (A<B), tính và đưa ra màn hình tổng các số chia hết cho 3 hoặc 5 trong phạm vi từ A đến B.
#include <bits/stdc++.h>
using namespace std;
long long a,b,t,i;
int main()
{
cin>>a>>b;
t=0;
for (i=a; i<=b; i++)
if ((i%3==0) or (i%5==0)) t=t+i;
cout<<t;
return 0;
}
Viết chương trình nhập từ bàn phím hai số nguyên a và b. Thực hiện tính và in ra màn hình kết quả của phép tính (chỉ lấy 2 chữ số sau phần thập phân). Giúp mình với Pascal nha mn
Viết chương trình nhập vào 2 số nguyên a,b nhập từ bàn phím. Tính và in ra màn hình: Tổng 2 số đó, Tổng bình phương của 2 số đó
uses crt;
var a,b:integer;
begin
clrscr;
readln(a,b);
writeln('Tong hai so la: ',a+b);
writeln('Tong binh phuong hai so la: ',sqr(a)+sqr(b));
readln;
end.
a) viết chương trình nhập N số nguyên từ bàn phím và in ra màn hình số nhỏ nhất.
b) viết chương trình nhập N số nguyên từ bàn phím và in ra màn hình số lớn nhất.
program hello;
uses crt;
Var n,i,j,k: integer;
a: array[1..50] of integer;
begin;
a[1]:=k;
Readln(n);
For i:=1 to n do
Begin;
Writeln('nhap a[',i,'] '); Readln(a[i]);
End;
For i:=1 to n-1 do
For j:=i+1 to n do
If a[i]<a[j] then k:=a[j];
Writeln('gia tri lon nhat la', k);
end.
Viết chương trình pascal nhập n số nguyên từ bàn phím. Thực hiện
+ Xuất ra màn hình các số vừa nhập
+Tính tổng các số vừa nhập và xét xem tổng đó có phải là số nguyên tố không ?
Làm giúp với !
uses crt;
var a:array[1..100]of integer;
i,n,t,kt,j:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
writeln('Cac so vua nhap la: ');
for i:=1 to n do
write(a[i]:4);
writeln;
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln('Tong cua day so la: ',t);
kt:=0;
for j:=2 to trunc(sqrt(t)) do
if t mod j=0 then
begin
kt:=1;
break;
end;
if kt=0 then writeln(t,' la so nguyen to')
else writeln(t,' khong la so nguyen to');
readln;
end.
Viết chương trình pascal nhập n số nguyên từ bàn phím. Thực hiện
+ Xuất ra màn hình các số vừa nhập
+Tính tổng các số vừa nhập và xét xem tổng đó có phải là số nguyên tố không ?
Làm giúp với !
uses crt;
var a:array[1..100]of integer;
i,n,t,kt:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
writeln('Cac so ban vua nhap la: ');
for i:=1 to n do
write(a[i]:4);
writeln;
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln('Tong cac so vua nhap la: ',t);
if t>=2 then
begin
kt:=0;
for i:=2 to trunc(sqrt(t)) do
if t mod i=0 then
begin
kt:=1;
break;
end;
if kt=0 then writeln(t,' la so nguyen to')
else writeln(t,' khong la so nguyen to');
end
else writeln(t,' khong la so nguyen to');
readln;
end.
Viết chương trình nhập vào n từ bàn phím hai số nguyên a và b. In ra màn hình BCNN(a,b).
``python
def UCLN(a, b):
if b == 0:
return a
else:
return UCLN(b, a % b)
a = int(input("Nhập số nguyên a: "))
b = int(input("Nhập số nguyên b: "))
benn = (a * b) // UCLN(a, b)
print("BCNN của", a, "và", b, "là:", bann)
var a,b,ta,tb,r,bcnn:integer;
begin
write('a = ');readln(a);
write('b = ');readln(b);
ta:=a;
tb:=b;
repeat
r:=ta mod tb;
ta:=tb;
tb:=r;
until r=0;
bcnn:=a*b/ta;
write('BCNN(',a,' ',b,') la ',bcnn);
readln
end.
Tạo chương trình nhập từ bàn phím giá trị 2 số a, b; sau đó tính và in ra màn hình tổng và hiệu của 2 số đó.
Ví dụ, sau khi nhập a = 12, b = 23 chương trình đưa ra kết quả ra màn hình như ở Hình 5.
Tạo chương trình như sau:
Bài 1: Viết chương trình nhập vào từ bàn phím các số thực a,b,c,d. Tính và đưa ra màn hình giá trị biểu thức: 2cb3 + 5cd4 – 3a? + bcd" - Bài 2: Viết chương trình nhập vào từ bàn phím 2 số nguyên m,n (n>0). Tính và đưa ra màn hình giá trị biểu thức nm-2 ~kíuuuuu~
Bài 2:
#include <bits/stdc++.h>;
using namespace std;
int main();
{
long m,n;
cout<<"Nhap m="; cin>>m;
cout<<"Nhap n="; cin>>n;
cout<<m*n-2;
return 0;
}